home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
SHARED.DIR
/
01991_Script_Other Game Controls
< prev
next >
Wrap
Text File
|
1995-09-13
|
2KB
|
115 lines
global gBtn16, gBtn17, gBtn18
global gGameBtn1, gGameBtn2, gGameBtn3, gGameBtn4,gGameBtn5,gGameBtn6
global gAnsA, gAnsB, gAnsC
global oGame, oLastGame, gNewGameWorld, oGameControl
global gNewMarker, gLastMarker, gWhatMovie
on KillGIP
mKillGIP(oGameControl)
end KillGIP
on GoGIP
mExitToGIP(oGameControl)
end GoGIP
on answera
mUserAnswers oGame, "A"
end answera
on answerb
mUserAnswers oGame, "B"
end answerb
on answerc
mUserAnswers oGame, "C"
end answerc
on NewGame
if objectp(oGame) then
go frame "restart"
else
set oGame=0
go frame "Entry"
end if
end NewGame
on OKNewGame
set oLastGame=oGame
set oGame=0
HideControl(gGameBtn5)
HideControl(gGameBtn6)
if length(gNewGameWorld)>0 then
do gNewGameWorld
else
go frame "Entry"
end if
end OKNewGame
on CancelNewGame
HideControl(gGameBtn5)
HideControl(gGameBtn6)
set gNewGameWorld=""
go frame "Chips"
end CancelNewGame
on ExitGame
leavegame
end ExitGame
on EGameSwitch
if objectp(oGame) then
if mGetLevel(oGame)=4 then
EGame
exit
end if
end if
go frame "Restart"
set gNewGameWorld="EGame"
end EGameSwitch
on AGameSwitch
if objectp(oGame) then
if mGetLevel(oGame)=4 then
AGame
exit
end if
end if
go frame "Restart"
set gNewGameWorld="AGame"
end AGameSwitch
on VGameSwitch
if objectp(oGame) then
if mGetLevel(oGame)=4 then
VGame
exit
end if
end if
go frame "Restart"
set gNewGameWorld="VGame"
end VGameSwitch
on leavegame
set vMarkerToJump=gNewMarker
set gNewMarker=gLastMarker -- forces markers back to point where they were before game
set gBtn16=0
set gBtn17=0
set gBtn18=0
turnoffpuppets 1 --APN 7/19
go frame (vMarkerToJump) of movie gWhatMovie
end leavegame
on helpgame
mGoHelp(oGameControl)
end helpgame
on leavegamehelp
mLeaveHelp(oGameControl)
end leavehelp